home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / borg.arc / GRAPHICS.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-12-29  |  1.9 KB  |  89 lines
  1. 10  CLS:DEFINT A-Z:FOR I=1 TO 10:KEY I,"":NEXT
  2. 20  DIM SCN$(88):PIK$=SPACE$(80):LINES=88
  3. 30  OPEN"b:menu3.txt" AS 1 LEN=80
  4. 40  FIELD 1,80 AS IL$
  5. 50  FOR LIN=1 TO LINES
  6. 60  GET #1,LIN:SCN$(LIN)=IL$
  7. 70  NEXT LIN
  8. 80  SCOLD=1:SCNUM=1:CP=POS(0):CL=CSRLIN
  9. 90  FOR SCL=1 TO 23
  10. 100  LOCATE SCL,1,0:PRINT SCN$(SCNUM+SCL-1);
  11. 110  NEXT SCL
  12. 120  LOCATE 24,1:PRINT MID$(SCN$(SCNUM+23),1,79);
  13. 130  CLOSE #1
  14. 140  GOSUB 630
  15. 150  FOR I=1 TO 10:KEY(I) ON:NEXT
  16. 160  DEF SEG=0:POKE 1050, PEEK(1052)
  17. 170  ON KEY(1) GOSUB 300
  18. 180  ON KEY(2) GOSUB 310
  19. 190  ON KEY(3) GOSUB 320
  20. 200  ON KEY(4) GOSUB 330
  21. 210  ON KEY(5) GOSUB 570
  22. 220  ON KEY(6) GOSUB 580
  23. 230  ON KEY(7) GOSUB 590
  24. 240  ON KEY(8) GOSUB 600
  25. 250  ON KEY(9) GOSUB 610
  26. 260  ON KEY(10) GOSUB 620
  27. 265  ON ERROR GOTO 850
  28. 270  GOTO 160
  29. 280  END
  30. 290  '*****begin subroutines*****
  31. 300  CHAIN F$(1)
  32. 310  CLS:END
  33. 320  CLS:SYSTEM
  34. 330  FOR X=1 TO 10
  35. 340  FOR W=3 TO 12
  36. 350  LOCATE W,6:PRINT"                                                                     "
  37. 360  NEXT W
  38. 370  LOCATE 3,20:PRINT"FUNCTION KEY";X
  39. 380  LOCATE 5,10:PRINT" (1)no change        (2)change";
  40. 390  CMD$=INKEY$:IF CMD$="" THEN 390
  41. 400  IF CMD$=CHR$(49) THEN 470
  42. 410  IF CMD$=CHR$(50) THEN 430
  43. 420  GOTO 390
  44. 430  LOCATE 7,10:PRINT"input menu NAME";
  45. 440  INPUT L$(X)
  46. 450  LOCATE 8,10:PRINT"input menu file(include drive!)";
  47. 460  INPUT F$(X)
  48. 470  NEXT
  49. 480  OPEN "o",#1,"b:kgraph.dat"
  50. 490  FOR X=1 TO 10:PRINT #1,L$(X):NEXT
  51. 500  FOR X=1 TO 10:PRINT #1,F$(X):NEXT
  52. 510  CLOSE#1
  53. 520  FOR W=3 TO 12
  54. 530  LOCATE W,6:PRINT"                                                                     "
  55. 540  NEXT
  56. 550  LOCATE 6,20:PRINT"CHOOSE AN OPTION"
  57. 560  RETURN
  58. 570  CHAIN F$(5)
  59. 580  CHAIN F$(6)
  60. 590  CHAIN F$(7)
  61. 600  CHAIN F$(8)
  62. 610  CHAIN F$(9)
  63. 620  CHAIN F$(10)
  64. 630  OPEN"i",#1,"b:kgraph.dat"
  65. 640  FOR X=1 TO 10
  66. 650  IF EOF(1) THEN CLOSE:GOTO 680
  67. 660  INPUT #1,L$(X)
  68. 670  NEXT
  69. 680  LOCATE 14,14:PRINT L$(1)
  70. 690  LOCATE 14,49:PRINT L$(2)
  71. 700  LOCATE 16,14:PRINT L$(3)
  72. 710  LOCATE 16,49:PRINT L$(4)
  73. 720  LOCATE 18,14:PRINT L$(5)
  74. 730  LOCATE 18,49:PRINT L$(6)
  75. 740  LOCATE 20,14:PRINT L$(7)
  76. 750  LOCATE 20,49:PRINT L$(8)
  77. 760  LOCATE 22,14:PRINT L$(9)
  78. 770  LOCATE 22,49:PRINT L$(10)
  79. 780  FOR X=1 TO 10
  80. 790  IF EOF(1) THEN CLOSE:GOTO 820
  81. 800  INPUT #1, F$(X)
  82. 810  NEXT X
  83. 820  CLOSE #1:RETURN
  84. 850  LOCATE 12,10:PRINT"THIS KEY NOT ACTIVE.PRESS ANY KEY TO CONTINUE"
  85. 860  DEF SEG=0:POKE 1050, PEEK(1052)
  86. 870  CMD$=INKEY$:IF CMD$="" THEN 870
  87. 875  LOCATE 12,10:PRINT"                                               "
  88. 880  RESUME 160
  89.